home *** CD-ROM | disk | FTP | other *** search
/ PCMania 24 / PCMania CD24.nrg / video / aviplay.txt (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-09-07  |  3.3 KB  |  115 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "AVI & FLI Player (C) J.D.A. 94"
  6.    ClientHeight    =   3720
  7.    ClientLeft      =   1416
  8.    ClientTop       =   2352
  9.    ClientWidth     =   4932
  10.    Height          =   4464
  11.    Icon            =   AVIPLAY.FRX:0000
  12.    Left            =   1368
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   310
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   411
  18.    Top             =   1656
  19.    Width           =   5028
  20.    Begin MMControl MMControl1 
  21.       BackVisible     =   0   'False
  22.       BorderStyle     =   0  'None
  23.       EjectVisible    =   0   'False
  24.       Height          =   330
  25.       Left            =   120
  26.       RecordVisible   =   0   'False
  27.       TabIndex        =   0
  28.       Top             =   120
  29.       Width           =   2370
  30.    End
  31.    Begin PictureBox Picture1 
  32.       AutoRedraw      =   -1  'True
  33.       Height          =   3630
  34.       Left            =   60
  35.       ScaleHeight     =   240.8
  36.       ScaleMode       =   0  'User
  37.       ScaleWidth      =   320.201
  38.       TabIndex        =   1
  39.       Top             =   60
  40.       Width           =   4815
  41.    End
  42.    Begin Menu Fuente 
  43.       Caption         =   "Fuente"
  44.       Begin Menu V
  45.          Caption         =   "V
  46.          Checked         =   -1  'True
  47.       End
  48.       Begin Menu Animaci
  49.          Caption         =   "Animaci
  50.       End
  51.       Begin Menu Separador 
  52.          Caption         =   "-"
  53.       End
  54.       Begin Menu Salir 
  55.          Caption         =   "Salir"
  56.       End
  57.    End
  58. Sub Animaci
  59. n_Click ()
  60.     V
  61. deo.Checked = 0
  62.     Animaci
  63. n.Checked = 1
  64.     Form1.MMControl1.Command = "Close"
  65.     Form1.MMControl1.Notify = True
  66.     Form1.MMControl1.Wait = True
  67.     Form1.MMControl1.Shareable = False
  68.     Form1.MMControl1.DeviceType = "Animation1"
  69.     Form1.MMControl1.FileName = "socket.fli"
  70.     Form1.MMControl1.Command = "Open"
  71.     'Form1.MMControl1.hWndDisplay = Form1.hWnd
  72.     Form1.MMControl1.EjectVisible = False
  73.     Form1.MMControl1.RecordVisible = False
  74.     Form1.MMControl1.StepVisible = 1
  75.     Form1.MMControl1.BackVisible = 1
  76.     Form1.MMControl1.NextVisible = 0
  77.     Form1.MMControl1.PrevVisible = 1
  78. End Sub
  79. Sub Form_Load ()
  80. Form1.ScaleWidth = 340
  81. Form1.ScaleHeight = 250
  82. deo_Click
  83. End Sub
  84. Sub Form_Unload (Cancel As Integer)
  85.   Form1.MMControl1.Command = "Close"
  86. End Sub
  87. Sub MMControl1_Done (NotifyCode As Integer)
  88.     Form1.MMControl1.Command = "Prev"
  89. End Sub
  90. Sub Salir_Click ()
  91. End Sub
  92. Sub V
  93. deo_Click ()
  94.     V
  95. deo.Checked = 1
  96.     Animaci
  97. n.Checked = 0
  98.     Picture1.ScaleHeight = 240
  99.     Picture1.ScaleWidth = 320
  100.     Form1.MMControl1.Command = "Close"
  101.     Form1.MMControl1.Notify = True
  102.     Form1.MMControl1.Wait = True
  103.     Form1.MMControl1.Shareable = False
  104.     Form1.MMControl1.DeviceType = "AVIVideo"
  105.     Form1.MMControl1.FileName = "t2-trans.avi"
  106.     Form1.MMControl1.Command = "Open"
  107.     Form1.MMControl1.hWndDisplay = Picture1.hWnd
  108.     Form1.MMControl1.EjectVisible = False
  109.     Form1.MMControl1.RecordVisible = False
  110.     Form1.MMControl1.StepVisible = 1
  111.     Form1.MMControl1.BackVisible = 1
  112.     Form1.MMControl1.NextVisible = 0
  113.     Form1.MMControl1.PrevVisible = 1
  114. End Sub
  115.